﻿Namespace EIBData.DPT
    Public NotInheritable Class EIBDataDPT_1_015
        Inherits EIBDataDPT_1_Base


        Sub New(data As Byte())
            MyBase.New(data)
        End Sub

        Sub New(value As Boolean)
            MyBase.New(value)
        End Sub


        Public Shared Shadows ReadOnly Property DPT_Name As String
            Get
                Return "DPT_Reset"
            End Get
        End Property

        Public Shared Shadows ReadOnly Property DPT_Number As String
            Get
                Return "1.015"
            End Get
        End Property

        Public Overrides Function ToString() As String
            Return If(_value, "reset command (trigger)", "no action (dummy)")
        End Function
    End Class
End Namespace